home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / axdata / datacont.bas < prev    next >
Encoding:
BASIC Source File  |  1999-02-02  |  632 b   |  17 lines
  1. Attribute VB_Name = "modDataControl"
  2. Global CurrentTB As Object, gSearchField As String, gSearchArg As String, m_DataType As Integer
  3.  
  4. '------------------------------------------------------------
  5. 'this functions adds [] to object names that might need
  6. 'them because they have spaces in them
  7. '------------------------------------------------------------
  8. Function AddBrackets(rObjName As String) As String
  9.   'add brackets to object names w/ spaces in them
  10.   If InStr(rObjName, " ") > 0 And Mid(rObjName, 1, 1) <> "[" Then
  11.     AddBrackets = "[" & rObjName & "]"
  12.   Else
  13.     AddBrackets = rObjName
  14.   End If
  15. End Function
  16.  
  17.